home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 May / Ahoy_Magazine_85-05_1985_Double_L.d64 / super duper (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  905b  |  31 lines
  1. 5 poke53280,6:poke53281,0:poke646,1
  2. 10 printchr$(147)
  3. 20 forx=3584to3660:readz:pokex,z:nextx
  4. 30 poke51,0:poke52,15:poke251,0:poke252,15:poke828,0
  5. 40 print"select option"
  6. 50 print:print"1. copy seq file"
  7. 60 print:print"2. copy pgm file"
  8. 70 print:print"3. end"
  9. 80 print
  10. 90 getr$:ifr$=""then90
  11. 100 a=val(r$):ifa<1ora>3then90
  12. 110 onagoto120,140,290
  13. 120 input"seq filename";an$
  14. 130 f$="s":goto160
  15. 140 input"pgm filename";an$
  16. 150 f$="p"
  17. 160 open3,8,3,an$
  18. 170 sys3584:close3
  19. 180 ifpeek(252)=159thenprint"file too long":stop
  20. 190 poke253,peek(828):poke254,peek(252):poke251,0:poke252,15:poke828,0
  21. 200 print"swap disks if putting copy on a new disk":print
  22. 210 input"name of new file";an$
  23. 220 open3,8,3,an$+","+f$+",w":sys3618:close3
  24. 230 print"- copy complete -":goto30
  25. 240 data 162,3,32,198,255,32,228,255,172,60,3,145,251,200,140,60,3,192
  26. 250 data 0,208,8,230,252,166,252,224,159,240,4,165,144,240,228,32,204,255
  27. 260 data 96,162,3,32,201,255,172,60,3,177,251,196,253,208,6,166,252
  28. 270 data 228,254,240,16,200,140,60,3,32,210,255,192,0,208,230,230,252,76
  29. 280 data 42,14,32,204,255,96
  30. 290 end
  31.